home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / progs / thor / fse / unquote.fse < prev   
Text File  |  1996-11-10  |  504b  |  29 lines
  1. /* unqoute.fse - reduce the layer of qoute chars (">") in a block of text
  2. ** to just one level.
  3. */
  4.  
  5. options results
  6.  
  7. YPOS
  8. currline = result
  9. XPOS
  10. currcolumn = result
  11. MSGLENGTH
  12. lastline = result
  13.  
  14. do i=currline to lastline
  15.         SETPOS 1 i
  16.         GETLINE
  17.         line = result
  18.         if(line ~= "") then do
  19.                 DELETELINES
  20.                 NEWLINE
  21.                 SETPOS 1 i
  22.                 INSERTINPUT ">"||strip(line, L, ">")
  23.         end
  24.         else break
  25. end
  26.  
  27. SETPOS currcolumn currline
  28.  
  29.